home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / b / ckmsfp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-06-30  |  17.1 KB  |  532 lines
  1. /* $Id: ckmsfp.c,v 1.4 91/12/15 23:17:54 rick Exp $
  2.  * $Source: /uw/mackermit/RCS/ckmsfp.c,v $
  3.  *------------------------------------------------------------------
  4.  * $Log:    ckmsfp.c,v $
  5.  * Revision 1.4  91/12/15  23:17:54  rick
  6.  * ut9
  7.  * 
  8.  * Revision 1.3  91/10/03  12:43:05  rick
  9.  * UT(5)
  10.  * 
  11.  *------------------------------------------------------------------
  12.  * $Endlog$
  13.  */
  14.  
  15. /* Version 0.8(35) - Jim Noble at Planning Research Corporation, June 1987. */
  16. /* Ported to Megamax native Macintosh C compiler. */
  17. /* Edit by Bill on Wed May 15, 15:48 */
  18. /* change name of rtol to sfprtol, make it the common file rtol rtn */
  19. /* either use RSRC & BINA if .RSRC extension, or use current defaults */
  20. /* Edit by Bill on Wed May 15, 15:48 */
  21. /* in initfilerecv make sure kermit flag binary is set */
  22.  
  23. /*
  24.  * file ckmsfp.c
  25.  *
  26.  * Module of MacKermit containing standard file package calls:
  27.  *
  28.  *    dosenddialog() - Send file...
  29.  *    dorecvdialog() - Receive file...
  30.  *    dogetfdialog() - Get file from server...
  31.  *
  32.  * Bill Schilit, May, 1984
  33.  *
  34.   Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
  35.   York.  Permission is granted to any individual or institution to use this
  36.   software as long as it is not sold for profit.  This copyright notice must be
  37.   retained.  This software may not be included in commercial products without
  38.   written permission of Columbia University.
  39.  *
  40.  */
  41.  
  42. #include "ckcdeb.h"
  43. #include "ckcker.h"        /* Kermit definitions */
  44.  
  45. #include "ckmdef.h"        /* Common Mac module definitions */
  46. #include "ckmres.h"        /* resource defs */
  47. #include "ckmptp.h"        /* ckm* Prototypes */
  48.  
  49. FILINF filargs;            /* is global */
  50.  
  51. int radflgs[] = {FIL_DATA, FIL_RSRC, FIL_TEXT, FIL_BINA};
  52. int radnotflgs[] = {FIL_RSRC, FIL_DATA, FIL_BINA, FIL_TEXT};
  53.  
  54. /* Globals used by SEND dialog */
  55.  
  56. SFReply sfr;            /* holds file info */
  57. Boolean sendselflg;        /* TRUE means file was selected */
  58. Boolean sendasflg;        /* TRUE means AS field is active */
  59.  
  60. int sendusercvdef = FALSE;    /* use rec. file mode defaults as send defaults */
  61.  
  62. /****************************************************************************/
  63. /* gethdl - return a control handle given a resource ID */
  64. /****************************************************************************/
  65. Handle
  66. gethdl (item, dp)
  67. int item;
  68. DialogPtr dp;
  69. {
  70.     short itype;
  71.     Rect ibox;
  72.     Handle ihdl;
  73.  
  74.     GetDItem (dp, item, &itype, &ihdl, &ibox);
  75.     return (ihdl);
  76. }                /* gethdl */
  77.  
  78.  
  79.  
  80. /****************************************************************************/
  81. /* setfilflgs - Manage the filflg word and radio controls.
  82.  *
  83.  * Flags will be changed when the resource ID of item hit (passed to
  84.  * this routine) is one of the radio items, or alternately routines can
  85.  * modify the filflg word itself and the radio items will be updated
  86.  * accordingly.
  87.  *
  88.  * N.B. Each dialog using these flags has them defined with the same
  89.  * DITL item numbers.
  90.  *
  91.  */
  92. /****************************************************************************/
  93. setfilflgs (item, dlg)
  94. DialogPtr dlg;
  95. {
  96.     ControlHandle ctlhdl;
  97.     int i;
  98.  
  99.     switch(item) {
  100.     case RADITM_MACB:    /* MacBinary mode */
  101.     filargs.filflg &= ~FIL_TEXT;
  102.     filargs.filflg |= FIL_BINA | FIL_RSRC | FIL_DATA;
  103.     break;
  104.     
  105.     case RADITM_TEXT:    /* Text mode */
  106.     if ((filargs.filflg & (FIL_RSRC | FIL_DATA)) == (FIL_RSRC | FIL_DATA))
  107.         filargs.filflg &= ~FIL_RSRC;
  108.     filargs.filflg &= ~FIL_BINA;
  109.     filargs.filflg |= FIL_TEXT;
  110.     break;
  111.     
  112.     case RADITM_BINA:    /* Binary mode */
  113.     if ((filargs.filflg & (FIL_RSRC | FIL_DATA)) == (FIL_RSRC | FIL_DATA))
  114.         filargs.filflg &= ~FIL_RSRC;
  115.     filargs.filflg &= ~FIL_TEXT;
  116.     filargs.filflg |= FIL_BINA;
  117.     break;
  118.     
  119.     case RADITM_DATA:    /* Data fork */
  120.     filargs.filflg &= ~FIL_RSRC;
  121.     filargs.filflg |= FIL_DATA;
  122.     break;
  123.     
  124.     case RADITM_RSRC:    /* Resource fork */
  125.     filargs.filflg &= ~FIL_DATA;
  126.     filargs.filflg |= FIL_RSRC;
  127.     break;
  128.  
  129.     }
  130.     /* if MacBinary mode */
  131.     if ((filargs.filflg & (FIL_RSRC | FIL_DATA)) == (FIL_RSRC | FIL_DATA)) {
  132.     SetCtlValue (getctlhdl(RADITM_MACB, dlg), btnOn);
  133.     SetCtlValue (getctlhdl(RADITM_TEXT, dlg), btnOff);
  134.     SetCtlValue (getctlhdl(RADITM_BINA, dlg), btnOff);
  135.  
  136.     SetCtlValue (getctlhdl(RADITM_DATA, dlg), btnOn);
  137.     SetCtlValue (getctlhdl(RADITM_RSRC, dlg), btnOn);
  138.     HiliteControl(getctlhdl(RADITM_DATA, dlg), 255);  /* disable it */
  139.     HiliteControl(getctlhdl(RADITM_RSRC, dlg), 255);  /* disable it */
  140.     } else {    /* not MacBinary mode */
  141.     SetCtlValue (getctlhdl(RADITM_MACB, dlg), btnOff);
  142.     HiliteControl(getctlhdl(RADITM_DATA, dlg), 0);  /* enable it */
  143.     HiliteControl(getctlhdl(RADITM_RSRC, dlg), 0);  /* enable it */
  144.     for (i = RADITM_FIRST; i <= RADITM_LAST; i++) {    /* update all */
  145.         ctlhdl = getctlhdl (i, dlg);   /* get a handle on his radio item */
  146.         SetCtlValue (ctlhdl,
  147.            (filargs.filflg & radflgs[i - RADITM_FIRST]) ? btnOn : btnOff);
  148.     }
  149.     }
  150. }                /* setfilflgs */
  151.  
  152.  
  153.  
  154. /****************************************************************************/
  155. /****************************************************************************/
  156. setfilnams (remfid, dlg)
  157. DialogPtr dlg;
  158. {
  159.     filargs.filrem[0] = 0;    /* no remote file */
  160.  
  161.     p2cstr (&sfr.fName);    /* convert filename to C form */
  162.                 /* copy sfr into local name storage */
  163.     strcpy (filargs.fillcl, &sfr.fName);
  164.     c2pstr (&sfr.fName);    /* convert back to pascal form */
  165.  
  166.     if (remfid != 0) {        /* fetch remote name if present */
  167.     GetIText (gethdl (remfid, dlg), filargs.filrem);
  168.                 /* in an edittext field */
  169.     p2cstr(filargs.filrem);
  170.     }
  171.     
  172.     binary = (filargs.filflg & FIL_BINA);    /* selected binary mode? */
  173. }                /* setfilnams */
  174.  
  175.  
  176.  
  177. Boolean isfolder;
  178.  
  179. /****************************************************************************/
  180. /* sendmydlg - SFPGetFIle item hit filter for "send file" dialog.
  181.  *
  182.  * This filter is called by SFPGetFile to let the programmer handle hits
  183.  * on his custom items.  Our items are 2 sets of buttons for selecting
  184.  * the fork (data or resource) and the transfer mode (binary or text).
  185.  * Also we have an EditText item for filling in the AS name.
  186.  *
  187.  * The buttons are set when the user clicks, but they also are given
  188.  * values depending on the selection of a file.  If the file's type is
  189.  * "APPL" then controls "Resource" and "Binary" are automaticlly set,
  190.  * otherwise the controls "Data" and "Text" are set.  SF-File keeps the
  191.  * SFReply upto date when a file name is selected, but...  unfortunately
  192.  * we are called before the SFReply is updated and so when we notice
  193.  * "getNmList" is hit we defer our update for one cycle.
  194.  *
  195.  * Our other item, the TextEdit item to set the "AS" file name, can be
  196.  * enabled or disabled to allow the selection of a file name by typing a
  197.  * character (standard SFGetFile stuff).  By using the global flag
  198.  * sendasflg and an event filter we switch between sending the chars to
  199.  * SF-File for filename selection and to ModalDialog for TextEdit of our
  200.  * AS name.  Since it would be nice to get rid of that blinking cursor
  201.  * in the TextEdit item our DITL has an invisible EditText item which
  202.  * becomes active for this purpose.
  203.  *
  204.  * At startup the AS field is disabled (the invisible EditText is
  205.  * current and sndasflg is FALSE).  The user can make AS active by
  206.  * clicking in it.  The user can toggle by clicking on the StatText
  207.  * "AS" -- though I won't tell anybody if you don't.
  208.  *
  209.  */
  210. /****************************************************************************/
  211. pascal short
  212. sendmydlg (ITEM, DLG)
  213. short ITEM;
  214. DialogPtr DLG;
  215. {
  216.     Boolean isappl;        /* file is an application */
  217.     short RSLT;
  218.  
  219.     if (sendselflg) {        /* file name selection occured? */
  220.     sendselflg = FALSE;    /* yes, don't do this again */
  221.  
  222.     p2cstr (&sfr.fName);    /* convert filename to C form */
  223.     zltor (&sfr.fName, filargs.filrem);    /* convert to remote form */
  224.     c2pstr (&sfr.fName);    /* convert back to pascal form */
  225.  
  226.     SetIText (gethdl (SEND_ASFN, DLG),    /* display converted name */
  227.           c2p_tmp(filargs.filrem));    /* in "As" field */
  228.     setfilnams (SEND_ASFN, DLG);    /* set file names since double */
  229.                     /* clicking fouls us */
  230.  
  231.     filargs.filflg &= ~FIL_RBDT;    /* turn off all of our flags */
  232.     isappl = (sfr.fType == 'APPL');    /* application? */
  233.     if ((Length(sfr.fName) == 0) && !isfolder) {    /* check for folder */
  234.         /* change the button if necessary */
  235.         SetCTitle (getctlhdl (getOpen, DLG), "\pOpen");
  236.         isfolder = TRUE;
  237.     } else if ((Length(sfr.fName) != 0) && isfolder) {
  238.         SetCTitle (getctlhdl (getOpen, DLG), "\pSend");
  239.         isfolder = FALSE;
  240.     }
  241.  
  242.     if (sendusercvdef) {    /* use recieve file type defaults */
  243.         filargs.filflg = filargs.fildflg;
  244.     } else {        /* figure out defaults on our own */
  245.         filargs.filflg |= (isappl) ?    /* update flags */
  246.         (FIL_RSRC | FIL_BINA) :    /* application */
  247.         (FIL_DATA | FIL_TEXT);    /* not application */
  248.     }
  249.     }
  250.     switch (ITEM) {        /* according to the item */
  251.       case getNmList:        /* user hit file name */
  252.     if (sendasflg) {    /* "As" active? */
  253.         sendasflg = FALSE;    /* yes -> deactivate "As" name */
  254.         SelIText (DLG, SEND_INVT, 0, 256);    /* activate invisible
  255.                          * editText  */
  256.     }
  257.     sendselflg = TRUE;    /* next time around set buttons */
  258.     break;            /* nothing more to do in this pass */
  259.  
  260.       case SEND_ASFN:        /* hit EditText for "AS" */
  261.     sendasflg = TRUE;    /* let modal filter pass to us */
  262.     break;
  263.  
  264.       case getOpen:        /* done? */
  265.     setfilnams (SEND_ASFN, DLG);    /* set file names */
  266.     break;            /* done... */
  267.  
  268.       case SEND_ALL:        /* hit send all check box */
  269.     filargs.filflg ^= FIL_ALLFL;    /* toggle send all flag */
  270.  
  271.  
  272.     SetCtlValue (getctlhdl (SEND_ALL, DLG),    /* set the ctl value
  273.                          * according to the flag */
  274.              (filargs.filflg & FIL_ALLFL) ? btnOn : btnOff);
  275.     break;
  276.     }
  277.  
  278.     setfilflgs (ITEM, DLG);    /* check for and handle radio items */
  279.     RSLT = ITEM;        /* pass item back */
  280.     return RSLT;
  281. }                /* sendmydlg */
  282.  
  283.  
  284.  
  285. /****************************************************************************/
  286. /* sendfilter - SFPGetFile event filter for "send file" dialog.
  287.  *
  288.  * This filter is the same form as a ModalDialog filter, it is used
  289.  * internally by SFPGetFile's ModalDialog call.  Our filter allows the
  290.  * user to select a file by typing the first character, which is a
  291.  * normal function of SFGetFile but is broken when we use EditText in
  292.  * our customized SFGetFile box.  Return 0x1000+char in itemhit to
  293.  * SFGetFile instead of letting ModalDialog handle it with a call to
  294.  * TextEdit.  Using a global flag "sendasflg" we decide to send the
  295.  * character to TextEdit via ModalDialog, or to SFGetFile.
  296.  *
  297.  */
  298. /****************************************************************************/
  299. pascal Boolean
  300. sendfilter (THEDIALOG, THEEVENT, ITEMHIT)
  301. DialogPtr THEDIALOG;
  302. EventRecord *THEEVENT;
  303. short *ITEMHIT;
  304. {
  305.     Boolean RETVAL;        /* returned value */
  306.  
  307.     RETVAL = FALSE;        /* default is to left Modal handle */
  308.  
  309.     if (THEEVENT->what == keyDown)    /* key down? */
  310.     if (!sendasflg) {    /* and the text isn't selected? */
  311.         /* then use as file name selector */
  312.         /* return char+0x1000 to SFPGetfile... */
  313.         *ITEMHIT = 0x1000 + (THEEVENT->message & 0x7f);
  314.         RETVAL = TRUE;    /* let SFP handle it, not modal */
  315.     }
  316.     return RETVAL;
  317. }                /* sendfilter */
  318.  
  319.  
  320.  
  321. /****************************************************************************/
  322. /* recvmydlg - SFPPutFile item filter for "receive file" dialog. */
  323. /****************************************************************************/
  324. pascal short
  325. recvmydlg (ITEM, DLG)
  326. short ITEM;
  327. DialogPtr DLG;
  328. {
  329.     short RSLT;
  330.  
  331.     RSLT = ITEM;
  332.  
  333.     switch (ITEM) {
  334.       case RECV_PROC:
  335.     filargs.filflg &= ~FIL_DODLG;    /* no more dialogs for me! */
  336.     RSLT = RECV_RBTN;    /* did "OK" */
  337.  
  338.       case RECV_RBTN:
  339.     p2cstr (&sfr.fName);    /* convert filename to C form */
  340.     setfilnams (0, DLG);    /* set names */
  341.     c2pstr (&sfr.fName);    /* convert back to pascal form */
  342.     break;
  343.     }
  344.     setfilflgs (ITEM, DLG);    /* check for and handle radios */
  345.     return RSLT;
  346. }                /* recvmydlg */
  347.  
  348.  
  349.  
  350. Point recvpt = {75, 100};    /* Used as Point */
  351. Point sendpt = {75, 80};    /* Used as Point */
  352.  
  353. /****************************************************************************/
  354. /* dosenddialog - Use SFPGetFile to fetch a file to send. */
  355. /* lclf: local file name;  remf: remote file name */
  356. /****************************************************************************/
  357. dosenddialog (lclf, remf)
  358. char *lclf[], *remf[];
  359. {
  360.     filargs.filflg = 0;
  361.     sendasflg = FALSE;        /* "AS" starts off inactive */
  362.     sendselflg = TRUE;        /* need to update file buttons */
  363.  
  364.     isfolder = FALSE;
  365.                     /* all file types, 2 filters */
  366.     SFPGetFile (sendpt, "", (FileFilterProcPtr) NILPROC, -1,
  367.         (SFTypeList) NILPTR, sendmydlg, &sfr, DLG_SEND, sendfilter);
  368.     *lclf = filargs.fillcl;
  369.     *remf = filargs.filrem;
  370.     filargs.filvol = sfr.vRefNum;    /* remember volume number */
  371.     return (sfr.good);        /* pass back return */
  372. }                /* dosenddialog */
  373.  
  374.  
  375.  
  376. /****************************************************************************/
  377. /****************************************************************************/
  378. dorecvdialog (fn, lclf)
  379. char *lclf[], *fn;
  380. {
  381.     int err;
  382.  
  383.     if (!(filargs.filflg & FIL_DODLG)) { /* don't want to do dialogs? */
  384.     *lclf = "";        /* then use a null string */
  385.     return;            /* and return now */
  386.     }
  387.     for (;;) {            /* keep trying */
  388.     filargs.filflg &= ~(FIL_RBDT);    /* clear file modes */
  389.     filargs.filflg |= sfprtol (fn);    /* convert fn and set modes */
  390.     SFPPutFile (recvpt, "\pReceive as:", fn,
  391.             recvmydlg, &sfr, DLG_RECV, (ModalFilterProcPtr) NILPROC);
  392.     *lclf = filargs.fillcl;
  393.     filargs.filvol = sfr.vRefNum;    /* remember volume number */
  394.  
  395.     if (!sfr.good) {    /* CANCEL */
  396.         cxseen = TRUE;    /* indicate cancel */
  397.         return;
  398.     } else {
  399.         /* delete if there */
  400.         err = FSDelete (c2p_tmp(filargs.fillcl), filargs.filvol);
  401.         if (err == fnfErr)    /* everything ok? */
  402.         return;        /* yes, return now */
  403.     }
  404.  
  405.     if (ioutil (err))
  406.         return;        /* until no error */
  407.     }
  408. }                /* dorecvdialog */
  409.  
  410.  
  411.  
  412. /****************************************************************************/
  413. /****************************************************************************/
  414. initfilrecv ()
  415. {
  416.     filargs.filflg = filargs.fildflg;    /* default flags are active */
  417.     warn = !(filargs.filflg & FIL_OKILL);    /* set kermit flag */
  418.     binary = (filargs.filflg & FIL_BINA);    /* selected binary mode? */
  419.     filargs.filsiz = 0;        /* no known size */
  420. }                /* initfilrecv */
  421.  
  422.  
  423.  
  424. /****************************************************************************/
  425. /* initialize the file settings, called only at init time            */
  426. /****************************************************************************/
  427. initfilset ()
  428. {
  429.     filargs.filvol = 0;        /* default volume is always default */
  430.     filargs.fildflg = FIL_DATA | FIL_TEXT;    /* default file setting */
  431.     /* if no settings file */
  432. }                /* initfilset */
  433.  
  434.  
  435.  
  436. /****************************************************************************/
  437. /****************************************************************************/
  438. int
  439. dogetfdialog (remf)
  440. char *remf[];
  441. {
  442.     DialogPtr getfdlg;
  443.     ControlHandle getbhdl;
  444.     Handle remfhdl;
  445.     short item;
  446.  
  447.     getfdlg = GetNewDialog (DLG_GETF, NILPTR, (WindowPtr) - 1);
  448.     circleOK(getfdlg);
  449.     
  450.     remfhdl = gethdl (GETF_REMF, getfdlg);
  451.     getbhdl = getctlhdl (GETF_GETB, getfdlg);
  452.     HiliteControl (getbhdl, 255);    /* start with deactive Get button */
  453.  
  454.     for (;;) {
  455.     ModalDialog ((ModalFilterProcPtr) NILPROC, &item);
  456.     switch (item) {
  457.       case ok:
  458.         if (filargs.filrem[0] == '\0')    /* no file name? */
  459.         break;        /* then they hit CR, don't allow */
  460.         *remf = filargs.filrem;    /* fill in for return */
  461.         initfilrecv ();    /* init recv flags */
  462.       case cancel:
  463.         DisposDialog (getfdlg);
  464.         return (item == ok);
  465.       case GETF_REMF:
  466.         GetIText (remfhdl, filargs.filrem);
  467.         p2cstr(filargs.filrem);
  468.         HiliteControl (getbhdl, (filargs.filrem[0] == 0) ? 255 : 0);
  469.         break;
  470.     }
  471.     }
  472. }                /* dogetfdialog */
  473.  
  474.  
  475.  
  476. #define RSXLEN 5        /* ".rsrc" length */
  477.  
  478. /****************************************************************************/
  479. /* sfprtol - translate remote file name to a local file name and */
  480. /*          and figure out the flags as well. */
  481. /****************************************************************************/
  482. int
  483. sfprtol (fn)
  484. char *fn;
  485. {
  486.     int l;
  487.     register char *cp;
  488.     
  489.     for (cp = fn; *cp; cp++) {        /* convert to lower case */
  490.     if (isupper(*cp))
  491.         *cp = tolower(*cp);
  492.     if (*cp == ':')            /* nuke colons (for Mac) */
  493.         *cp = '_';
  494.     }
  495.     
  496.     if ((l = strlen (fn)) > RSXLEN &&    /* big enough? */
  497.     (strcmp (&fn[l - RSXLEN], ".rsrc") == 0 ||    /* and matches
  498.                              * extension? */
  499.      strcmp (&fn[l - RSXLEN], ".RSRC") == 0)) {    /* either way? */
  500.     fn[l - RSXLEN] = '\0';    /* so remove the extension */
  501.     return (FIL_BINA | FIL_RSRC);    /* want rsrc and binary */
  502.     }
  503.     return (filargs.fildflg & FIL_RBDT);    /* else return default */
  504. }                /* sfprtol */
  505.  
  506. /****************************************************************************/
  507. /*
  508.  *    set_cwd - set the working directory
  509.  *       Originally wdset() from NCSA Telnet for the Macintosh, v2.2
  510.  */
  511. /****************************************************************************/
  512.  
  513. Point cwdpt = {100, 100};    /* Used as Point */
  514.  
  515. int
  516. set_cwd()
  517. {
  518.     SFReply reply;
  519.     int err;
  520.  
  521.     err=SetVol (NILPTR, filargs.filvol);
  522.     SFPPutFile (cwdpt, "\pSet Transfer Directory",
  523.         "Doesn't Matter", 0L, &reply, CWDBOXID, 0L);
  524.  
  525.     if(!reply.good) return(-1);
  526.     filargs.filvol = reply.vRefNum;
  527.     err = SetVol (NILPTR, filargs.filvol);
  528.     if (err != noErr)
  529.         printerr("Trouble setting transfer directory:", err);
  530.     return (err);
  531. }
  532.